home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
United Public Domain Gold 2
/
United Public Domain Gold 2.iso
/
utilities
/
pu494.dms
/
pu494.adf
/
MANDDEMO
/
arexx
/
PrintAttr.mnd2
< prev
next >
Wrap
Text File
|
1993-08-18
|
3KB
|
107 lines
/* This script is supplied with the Mand2000 demo and release */
/* versions and may be freely distributed. */
/* Print the attributes of the current project, or entire program. */
/* Pass 'project' or 'global' as a parameter. Default is global. */
/* Typically this command is run from the menus which are */
/* installed by the default startup.mnd2 script. */
portname = address() /* Retrieve the current port name. */
/* If the portname does not start with MAND2000 then this script must */
/* have been run with rx, rather than from Mand2000. Therefore we */
/* need to set the port name. We do not always set the port name */
/* because it is better to let Mand2000 set it for us, so that */
/* this script can be used with windows other than the one with */
/* port name MAND2000.1. */
if (left(portname, 8) ~= "MAND2000") THEN
address 'MAND2000.1'
parse arg command
say
if (command = PROJECT) THEN DO
getattr stem MYVAR
PrintMember(left)
PrintMember(right)
PrintMember(top)
PrintMember(bottom)
PrintMember(centerx)
PrintMember(centery)
PrintMember(juliax)
PrintMember(juliay)
PrintMember(maxiters)
PrintMember(pause)
PrintMember(done)
PrintMember(permillage)
PrintMember(fractaltype)
PrintMember(drawlevel)
PrintMember(backdrop)
PrintMember(width)
PrintMember(height)
PrintMember(drawwidth)
PrintMember(drawheight)
PrintMember(numzooms)
PrintMember(extraacc)
PrintMember(precision)
PrintMember(arexx)
PrintMember(filename)
PrintMember(file)
PrintMember(morphfactor)
PrintMember(colourmaptype)
PrintMember(colourmapskip)
PrintMember(colourmapoffset)
PrintMember(morph.making)
if (MYVAR.morph.making = 1) THEN DO
PrintMember(morph.framesleft)
PrintMember(morph.framenum)
PrintMember(morph.basename)
PrintMember(morph.endfactor)
END
PrintMember(movie.making)
if (MYVAR.movie.making = 1) THEN DO
PrintMember(movie.framesleft)
PrintMember(movie.framenum)
PrintMember(movie.basename)
PrintMember(movie.tweening)
PrintMember(movie.zoomx)
PrintMember(movie.zoomy)
PrintMember(movie.zoomamount)
END
END
ELSE DO
address MAND2000
getattr stem MYVAR
PrintMember(version)
/* Print the number of windows open. */
PrintMember(count)
/* Print all of their ARexx port names. */
DO i = 1 to MYVAR.count
PrintMember(i - 1)
END
PrintMember(priority)
PrintMember(palette)
PrintMember(zoomspeed)
PrintMember(workbench)
PrintMember(screendepth)
PrintMember(screenwidth)
PrintMember(screenheight)
PrintMember(screenmode)
END
say
exit
PrintMember:
arg x
say x "is equal to" myvar.x
return 0